Исходный код

Option Explicit
Call EditMessage(ThisObject)

'==============================================================================
'Создать сообщение для рассылки выбранным пользователям, 
'и приаттачить к нему объект (переданный в качестве аргумента функции)
'==============================================================================
Sub EditMessage(Obj)

        Dim Mess, Role, user, UsColl, MsgDlg, SelUserDlg, RetVal
        
        ' Открыть диалог выбора пользователя
        Set SelUserDlg = ThisApplication.Dialogs.SelectUserDlg
        RetVal = SelUserDlg.Show
        
        'Если диалог отменен, закончить работу
        If RetVal <> TRUE Then Exit Sub
        
        'Создать объект "Сообщение" и заполнить его свойства
        Set Mess = ThisApplication.CreateMessage
        
        'Тема сообщения
        Mess.Subject = "Совещание" 
        
        'Содержание сообщения
        Mess.Body = "Совещание участников разработки """ & Obj.Description &_
                         """ состоится " & Date & " в 16 часов. С уважением, " &_
                         ThisApplication.CurrentUser.Description
        
        'Заполнить список рассылки 1) если выбраны несколько пользователей 2) если выбрана группа
        If SelUserDlg.Users.Count<>0 Then
                Set UsColl = SelUserDlg.Users
                For Each user In UsColl 
                        Mess.ToAdd user
                Next
        End If 
        If SelUserDlg.Groups.Count<>0 Then
                Mess.To = SelUserDlg.Groups(0)
        End If 

        'Добавить вложение (переданный объект)
        Mess.Attachments.Add Obj

        'СОздать диалог редактирования сообщения, инициализировать его и вывести на экран        
        Set MsgDlg = ThisApplication.Dialogs.EditMessageDlg
        MsgDlg.Message = Mess
        MsgDlg.Show
End Sub
'==============================================================================